  StrRet := 'PC-SIG World of Education CD-ROM Setup';
  Cls;
  DoFunc(0);

GetFrom:
  DoFunc(5);
  Mssg(6,3,'Enter the Drive letter of your CD-ROM.');
  DoFunc(11);
  DoFunc(2);
  CDROMDrive := StrRet;
  BranchEq(IntRet,0,Leaving);
  BranchEq(IntRet,2,GetFrom);

GetDrive:
  DoFunc(5);
  Mssg(6,3,'Enter the Drive letter of your hard disk.');
  StrRet := 'C';
  DoFunc(2);
  ToDrive := StrRet;
  BranchEq(IntRet,0,Leaving);
  BranchEq(IntRet,2,GetDrive);

  {Example of the directory name on their hard disk}
  {Should be the same as the directory name stored}
  {in the HR.CDB file}
  ConCat(SysPath,ToDrive,':','\PCSIGEDU');

  {Complete Path to the file GO.BAT}
  StrRet := SysPath;
  DoFunc(6);
  ConCat(SysPath2,StrRet,'GO.BAT');

  DoFunc(5);
  Mssg(6,3,'You have specified the following:');
  Mssg(8,5,'- CD-ROM is in Drive  :');
  Mssg(29,5,CDROMDrive);
  Mssg(8,6,'- Install Batch File onto Drive');
  Mssg(40,6,SysPath);

  DoFunc(7);
  DoFunc(5);
  BranchEq(IntRet,0,Leaving);
  BranchEq(IntRet,2,GetFrom);

  IntRet := 1; {If they don't have 101K free then don't install}
  DoFunc(4);
  BranchEq(IntRet,0,Leaving);
  BranchEq(IntRet,2,Leaving);

  DoFunc(5);
  Mssg(6,3,'Installing CD-ROM start up batch file now:');

  {Make The Directories Here}
  Mssg(5,21,'Creating Directory...');
  ChDir(CDROMDrive,':');
  ChDir('\HR');       {built in directory name on the CD}
  ChDir(ToDrive,':');
  MkDir(SysPath);
  ChDir(SysPath);

  Mssg(5,21,'Creating Batch File...');
  StrRet := SysPath2;
  IntRet := CDROMDrive;
  DoFunc(10);

  Mssg(5,21,'Copying Files...      ');
  Copy(CDROMDrive,':*.RDS >NUL');
  Copy(CDROMDrive,':*.NBM >NUL');
  Copy(CDROMDrive,':TOUR*.DAT >NUL');

  Mssg(5,21,'                ');

Complete:
  StrRet := InstName;
  DoFunc(0);
  Mssg(0,0,'Installation Complete');
  Cls;
  Mssg(1,10,'Type GO from the PCSIGEDU directory to enter the');
  Mssg(1,11,'PC-SIG World of Education CD-ROM');
  Goto Exit;

Leaving:
  StrRet := InstName;
  DoFunc(0);
  Mssg(0,0,'Installation aborted by User');
  Cls;
  Goto Exit;

Exit:
